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THIS MONTH: 

— Bill On OL One More Time. 
- Dr. Liyod Dreger 

Rudy's "SQ" NOTES 

— Presidents Message 

- And Other Great Things 


If any articles are copied 
piease credit SMUG Bytes 
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Send all contributions by the 
first day of the month to: 
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Bill Heberlein x 
Editor x 
SMUG BYTES x 
5052 N. 91st Street. ж 
Milwaukee, WI 53225 x 
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1988 OFFICERS 
& WORKING 
MEMBERS 


All Area Codes Are 414 
President - М. Schultz 
- 353 4522 
V. Pres. - М. Heberlein 
- 527 2191 
Secretary - L. Dreger 
- 321 0694 
Treasurer - J. Frohboese 
- 377 1385 
Education - В. Cultice 
- 542 3591 


- Librarians 
Tape/Disk - Е. Pawloski 
- 1 338 0260 
Book - D. Nickels 
- 1 284 9691 


- Sub Group Leaders 
Games - М. Schultz 
- 353 4522 
Meeting on 3rd Sat. of the month. 
Hardware - G. Kraemer 
- 421 0179 
No set date. Call for info. 
Spectrum — R. Hilsmann 
- 251 5291 
Meeting on 3rd Wed. of the month. 
RP/M - В. Cultice 


- 542 3591 
Meeting on 4th Wed. of the month. 
QL - R. Hilsmann 

- 251 5291 


Meeting date see Spectrum group. 
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(NOTE NEITHER ANY AUTHOR OR SMUG BYTES TAKES ANY RESPONSIBILITY 
FOR ANY HARDWARE MODIFICATIONS TO YOUR EQUIPMENT.) 


FROM THE PRES. 


Two things I want to mention. The 
first is that we are not giving up 
on the TS1000 let alone the TS2068. 
Although the input for the  TS1000 
is very sparse within our group we 
will answer any questions we сап 
and even hold teach basic basic to 
those requesting it. If we can't 
get enough for а class talk to 
Dick Cultice and we will arange to 
have a one on one class. 
The second thing is the upcoming 
Computerfests - IF ANY ONE IS 
INTERESTED IN GOING PLEASE CONTACT 
ME. 


2гсі 
BYTES 


* SAVE THE HASSLE, have 2nd BYTES 


To jog your memory here is the 
information again. The Cleveland 
group is sponsoring one August 26 
& 27. For the West Coast and any 
others who wish to go is the 3rd 
Northwest Computerfest in Portland 
Oregon. If you've never attended 
one try it you'll like it. The bus 
trip from Milwaukee is 2 days 8 hrs 
and $121 or flying from Milwaukee 
is $318 if reservations made in 
advance. Lastly the train  (AMTRAC) 
is $218 and 50 hours. 


Ham and Computer fests coming up 
Sat. JULY 9, the SMARC presents 
SWAPFEST88 Oak Creek. Amer. Legion 
Post 


The new 
Computer Store 
For Not-So-New 


computers 
——————— 


sell your 


unused " computer, peripherals and software 


- We are in the Business to sell your computer, 


* SAVE MONEY, buy your computer, peripheral and 


software at 2nd BYTE 


* SAVE TIME. have our profession 
essit you in finding the com 


Programs for your needs. 


al consultants 
puter and the 


7 We are in the business to help you select an 
inexpensive System. 


* WARRANTY, оп almost all equipment we sell. 


- We service what we sell 


774—1155 


9721 W. Greenfield Ave. West Allis, WI 53214 
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"So" Gets 
“BY R.A.HILSM 


Time to look back to some of the 
programs you have found here in the 
past, especially the LIBRARY and 
RECOVER program needs to Бе updat- 
ed. "Haste makes waste", this has 
been a good demonstration of it. 


But enough about that, lets do 
it. This month an update of the 
LIBRARY program, which as I men- 
tioned last month, had a few fea- 
tures added to it since you have 
seen it in this column. In fact the 
changes are great enough to reprint 
the entire program ones more, and 
also the instructions to use it. 


Next month I will review the RE- 
COVER program, perhaps in its  en- 
tirety, depending on the amount of 
changes I will make to it. Some of 
you have perhaps noted, it does not 
work with single sided drives, fact 
is it was written for  quad-density 
drives, and its major feature is to 
rebuild the directory ones lost. 


I feel this is important enough, 
since SDOS (Safe DOS) in its syntax 
does not ask for the drive number 
when the command "FORMAT/"name" is 
entered. Criticism? I hope it is 
not viewed that way since I think 
John Oliger has done a fantastic 
job writing the DOS, just a suges- 
tion, if space and time permits to 
perhaps change the syntax, at least 
for "FORMAT" to "FORMAT/2"name", 
which of course would make the user 
aware to specify the drive number 
when doing such a major task like 
formating a disk, rather than 
expecting flaky computer users to 
do a "LET/D=2" before formating, 
something easely forgotten. 


I have managed to do this twice 
with an important disk in the other 
drive, but then I have been called 
flaky in the past, especially since 
I still use such an outdated com- 
puter as the 2068 Timex/Sinclair. 
Little do they know. 
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iine with 
г Machine c 
456789012534: 


m 


ad 
x 


PREiSERSRRRRRRERRREREREREGE 
+ . LIBRARY PROGRAM 
= — UERSION 1.4 (5005) 
+ 519885 IMPEX SOFTUARE 
= 

X 


BY R.A. HILSHHHH 
FOR PUBLIC DOHRIH. 


ЕКЕ ЕКІСІН 


20 CLEAR : LET A=NOT РІ: БІН я 
$iURHL "i72",URHL "28"): DIM гоя 
L "10"): DIM BS(UHL "32"): DIM C 
$£iUHL "B5887!: LET ü-H: LET T=56N 

PI: DIM K$(UHL "5",URHL "5"): LE 
T K$(I) ="BASIC": LET КОА "2": 
z"DHTHH'": LET K$ {INT PI)-'"DHTAS" 


саб нж us 


Әл 


: LET KS(UAL “4")="COBDE ": LET K 
ФОА "S"IZ"STHTE": LET Kg (VAL d 
6")z"URBLS": INK VAL "G8": PAPER 


I: BORDER I: LET Е-РЕЕК VAL "235 
SS"+UAL "ZSb5"sPEEK VAL "BS3535"-4U 
AL Mad. ind 

30 CLS : LET HMENUZURHL "50": LE 
T C-UHL “18”: LET P-UHL "78": LE 


"Б"; “DISK LIBRARY PROGRHH'"' TAB U 
AL "6"; 3015885 IMPEX SOFTURRE" "x 
ЕЗІ ЕЗІ ЗА ААА ЖА 
*****''PRESS5"''"1) TO CREATE A N 
EU LIBRARY FILE"''"2)1 TO LOAD AN 
EXISTING FILE “: PRINT #0; "ENTE 
R 1 OR 2": PAUSE 0: IF INKEY$="e2 
" THEN GO SUB P: INPUT “FROM WHI 
CH DRIVE ARE YOU LOADINGENTER DR 
IUE # (1 TO 43 -";K: CLS : GO TO 
UAL "7840" 

аға GO SUB Р: id “HOW MANY F 
ILES IN NEY DISK FILET (eae MAX T 
/5 - Зра HAX 5 Ы. ; 


М E$iFL+I UAL "27"3): LET Exit, T 
а VAL "S"1IsSTRS I: GO SUB P: INF 
UT VENTER HHHE OF HEU LIBRARY FI 
LE"''D£: LET E${(I VAL "4" TO UAL 
Pia" bs. LET E£II,UHL "14" Ta 
VAL "185"1z5TR$ FL 
вә GO SUB а: 60 SUB P: СІЗ : F 
RINT AT O,B-INT ІШЕМ Dero), DISK 
LIBRARY FILE "UIESII,UHL "4" ТО 
UAL ізі; AT 1,0; "^xxzXxXxExXExXRÓ4A 
EEEEEEESESESESESE EE" ol) H 
OR LIST PROGR. & LORD "е: 
NGE DISK NAHE IDISAELIBR.! X 
HDD А DISK FILE. iTO LIBRARY)": 


oa DELETE DISK FILE (FROM LIBR 


.1"**"B) UPDATE H DISK FILE (LIB 
RRRY1" "Bi SORT LIBRARY FILES í 
ALPHAI “72473; LOAD OR SAVE Baer 
г DATA "'" 8 LIST LIBRARY FI 


ТО PRIHTER 
Ба PRINT ""2! CREATE HEU DISK 
FROM FILES'' mm RR 

"U'*"CHPRCITY ";FL;T 


" FILES ENTERED": PE 
23322-2253 PRESS 1 TŪ 8B < 

44444444: РАЦБЕ GO: GO TO (CODE 
INKEY $-48)3 41E3 

70 BEEP .ü2,35: 

Be LET ¥=UAL Бы тен" "INT PI!- 
I: RETURN 

100 PRINT " ENTER ZERO id) TO E 
ХІТ TO МЕНИ 


awe EU 
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11а PRIHT "D WILL BE CATALOG i224 LOAD + сор : 5 
ED NOU"''"PRESS ENTER WHEN PROHP 1525 LOAL SERBS не 
ТЕР TO "''" "SCROLL 11%: RETURN 1226 LOAD /L$URL : STOP 
1188 PRINT “INSERT DISK INTO"''" 1227 POKE 2337856,K-256sINT (K/256 
APPROPRIATE DRIVE AND "''"ENTER 1: POKE 22277,1NT ік/гвві: RETUR 
DRIVE NUMBER gone М 
isa PRINT RT г ,.0; "DRIVE # (1 T 1999 GO TO MENU 
О 4) OR (0) TO EX "s RETURN 2000 CLS : GO SUB Р: GO SUB R. P 
1000 GO SUB а: C ; GO SUB R: G RINT AT С,0;: GO SUB VAL "1249": 
O SUB P: INPUT “ENTER NAME OF PR INPUT E: IF К-б THEN GO ТО МЕНИ 
R SEARCH”? 7 "ОБ PRESS ENT 2010 LET /б-к-І: GO SUB P: CLS : 
ALL LIBRARY PRINT AT £,0;: GO SUB VAL “iig” 
5 Б;  "BERREH-NRHE CAN BE F 21 PAUSE +8: CAT : RANDOMIZE USR 
ARTIAL," "дб FOR ""PROGRHH"" = E: CLS : LET FS=AS(UAL "178", T 
ROG AT VAL UIS",D0;FPS: IF F G VAL ."15"!: PRINT AT С,0; “OL D 
= © THEN GO TO MENU. . ISK МАМЕ ";F$: INPUT "ENTER NEU 
1218 IF F£-"" THEN GO TO VAL “із DISK NAME BELOW THEN "''"PRESS8 E 
sa" - DOE e - NTER. (16 CHRS MAXI"; AT VAL "B5", 
ізгі FOR і Lots IF ESiH-4I,.I1 ТО D;B$£i TO VAL "i5'"): LET AgiUAL " 
КЕМ F$i1-F$ THEN ап TO UAL "1846 іта", TO VAL "46") =<Ba( ТО VAL "i 
S 6“): RANDOMIZE USR (E+VAL "854"! 
1830 NEXT : CLS : GO SUB P: PRIN 2620 GO SUB 89: FOR /1 TO Y: IF E 
T HT CUAL "2": PROGRAM CAN NOT #(A4+1,12 TO 27) =F* THEN LET ЕЗІН 
БЕ LOCÁTED"'*': ба SUB Б: PAUSE 41,12 TO 27) =Bs 
0: Go TO MENU 2836 NEXT 
1@4@ CLS : HUB P: GO SUB R: P 21880 LET B£-"": GO TO MENU 
RINT HT VAL “PILE > ";ESÍIH зова CLS : GO SUB P: GO SUB R: P 
+I, TO EL us > “|; ES(A+I,UA RINT '''" TO арр DISK TO THE LIB 
ig" ТО ча. " TO LOAD RRHRY,."'': GO SUB URL "1280": Go 5 
THE, FILE FRO NAMED DIS UB URL "138": INPUT K: IF K-8 Ti 
. ";: GO SUB VAI ": INPUT K EN GO TO MENU 
: IF Қой THEN 1 I: GO TO U 3810 LET ;DzK-I: CLS : PRINT AT 
AL "i228" C,0;: GO SUB VAL "110": PAUSE R+ 
iese co то i Б: бат: LET F-UsR Е. 60 SUB UAL 
i@6@ CLS : PR "UI-PRGING = ENT "S030": CLS : GO SUB P: GO SUB 
FR=LOAG #ZERO=EXITFILE- NAHE ТҮР R: PRINT AT VAL "8",0;"DISK TO Б 
E DISK-HHHE"'"xzszsszririxix E ADDED TO THE LIBRARY:"'^''"DISK 
*XtxXxxxxxxtxx": GO SUB Q: LET NAME: ";H$£iUBHL "178")'"FOüRHRARTED 
F=Y+I: GO TO ii3 TO ";CODE AS(VAL "179",1);" TRKS 
ie78 LET G=3: LET Н-1: FOR /5 ТО » "CODE A$ (UAL "179",I4I);" SID 
J: PRINT HT 6,8; INVERSE 1; OUE ES"’ "CAPACI =; CODE Ax (UAL EM 
R 1; ВФ: PAUSE б LET B-CODE ІМКЕ "INT PI) ЕТТІҢ "еее KK"! REMAINI 
Y$: IF Б-1З THEN GO TO 12160 в DISK SPACE: “; CODE AS (UAL Pr 
i888 IF B-48 THEN GO TO MENU "UAL "Б" ауар "5";" K"''""PRESS 
1280 IF B-48 THEN LET Я=4+1: LET ANY KEY TO ADD DISK TO THEDISK- 
EzK4288: GO SUB 1227: GO SUB ii LIBRARY“: PAUSE 0: IF INKEY$="a" 
10: GO TO 119 THEN GO ТӘ MENU 
1188 PRIHT HT 8,8; INVERSE 0;Bs5: 3620 FOR /Ү TO Y4F-1: LET E£insi 
GO SUB 1178: МЕХ , TO 11} =AS(A-Y4+1, TO 11): LET E 
1118 PRINT AT 3,0;Сс%: IF AF THE #(A+1,12 TO 271z280£(178): NEXT : 
Н RANDOMIZE USR E: GO TO 1138 LET Е%(І, TO INT PI)-STR$ A: GO 
11280 RETURN TO MENU 
1130 GO SUB P: LET 5=2: LET Jz1 3030 IF F=0 THEN PRINT ‘тав Un 
1140 PAUSE а LET б-3: LET H=0: L "8"; "NO FILES OM DISK"’’: GO 5 
IF F-55185 THEN LET 01-041 сот UB R: PAUSE 0: GO ТО MENU 
D 11580 3040 GO SUB Q: LET Y-Y4I: FOR v2 
1158 LET J=F TO Y: IF E£íH,i2 TO 27)-H$ii78, 
1160 LET К=РЕЕК 2337542586sPEEK 2 TO 16) THEN CLS : PRINT AT С,0; 
5377: FOR /з To a “DISK ALREADY PRESENT IN LIBRARY 
ii70 IF F THEN PRINT AT 5,0; Esta "**: 60 SUB Б: PAUSE 0: GO ТО HE 
а TO i8!1;TAHB ii;EZiicCüaODE ES£iH.i HLI 
1)31; TRB 17;Е8І8,12 TO 25): LET G 30580 NEXT : RETURN 
=6+1: IF Н THEN RETURN 4220 CLS : GO SUB P: GO SUB R: L 
1188 NEXT : GO SUB 1227: GO SUB ET Б-0: INPUT “ENTER NAME ОҒ DIS 
a? K FILE TQ BE DELETED FROM THE 
DISK-LIBRRHRY"'"'F£: IF Fg="8" T 
HEN GO TO МЕМО 
= 4018 CLS : PRINT RT С,0; "DELETIH 
; IFK G DISK ";F$: GO SUB @: FOR x=2 T 
i DO Y4I 
1220 LET /D=K-UAL "1": LET L$=E$ 4аг8 IF Е$іх,12 TO 11+LEN Fs) =Fs 
tA, TO Ci: GO TO VAL "i1220"4CODE THEN GO SUB VAL "4050": LET Y=¥ 
ES{(A,VAL "11")4I -I: LET ES{I, TO INT PI)-STRS iY 
i221 LORD А4: STOP +I): GO TO VAL "4820" (S 
fees LOAD де DATS Ail: STOP 4030 HEXT x: IF B THEN RETURN 
1223 LOAD /і $ DATA Esti: STOP 4040 GO TO MENU 
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46850 FOR /ж TO Y4I: IF A=FL THEN в0З1 LET -P-ü;6G: GUT i27,27: GUT 
IF ESiH,iz TO 12+ЕЧ Fei=Fs THE 127,78: OUT 127,8 
Ы LET ESiaH:2"77: RETURN вода CLS : GO SUB Ы: FOR 72 TO Y 
4050 LET Es{(fi=E¢(A4+1)}: NEXT : R +I: LPRINT TAB 2;ES tA, TO 18:;TA 
ETURN B 14;K8(14+COBE Esia, 1133;7TAB Ба; 
сәга CLS : GO SUB P: PRINT AT C, E¢tA,1e TO 271; 
O;"TO UPDATE A DISK FILE ІМ THE" ваза IF A<¥4+I THEN LPRIHT TAB 42 
““әртақ LIBRARY, ":: GO SUB 128: ;Е$ІяЯ+1, TO i8!;TRB 54; K8(1+CODE 
INPUT К: IF K=0 THEN GO TO MENU E*(A+1,1111; TAB 6G;E#(A4+1,12 TO 
5010 LET /Ы-Кк-І: CLs : PRINT ат 27}: LET Аа-Аз1: МЕХТ 
с,0;: GO SUB VAL "1180": PAUSE R+ gaoa GO TO MENU 
R: CAT : RANDOMIZE USR E: LET F$ apga CLS : GO SUB P: GO SUB R: P 
=zA$ (UAL "178", TO VAL "16"1: Go RINT AT VAL "5" ,0;"THIS FEATURE 
SUB R: LET Б-І: GO SUB VAL ^4gie REQUIRES THO DRIUES"'''"IF You N 
Uc (CAIs OLET J ZUSR Б.” БЕТ Yeti: EED TO FORHHT A DISK, "7: GO SUB 
LET ЕІ, ТО =STR# Y: GO TO U URL View" 
AL "зага" 8210 PRINT ат UAL "123" 0; 78 
gega CLS : GO SUB R: GO SUB FP: F ъ= = = Se INPUT 
RINT AT c,0; "SOBTING"''"THIS мау Ее. Ir Е%- шы THEN GO ТО МЕНИ 
TAKE A WHILE ІБЕБІС!!!.ң: GO Su S620 IF F£-"" THEN GO TO UAL "ag 
B ©: LET 5-і 50" 
ið LET 5-25z2: IF 5<-Ү-І THEN G aga CLS : бо SUB P: LET KeUAL F 
о TO 6816 $: PRINT AT €,0; "DISK WILL BE ҒО 
6@20 LET S=INT (S72): IF 3=8 THE RHRHTED NOU"? "^pIsK SHOULD BE ІМ 
ы GO TO МЕНИ DRIVE ";EK: LET /sG=K-I: INPUT "EH 
База FOR /р TO Y41-5: LET K=A TER NAME FOR NEU DISK" CFS 
604@ LET B=K+5: IF ЕФІК) <=Eg Б: apap CLS : GO SUB P: PRINT AT C, 
THEN GO TO 6866 0; “IF DISK IS ІМ DRIVE "; FLASH 
Бәсе LET F£-E£SiíÉKi): LET x dele I;K; FLASH 0;“ THEN PRESS" ‘’ “ENT 
Bl: LET EZSÍB)-F$: LET K-K-5: ER AND FORMATING WILL BEGIN": FA 
қ>1 THEN GO TO 6848 USE 0: FORMAT /Ғф: LET F=U5R E 
5050 IF INKEYS="@" THEN GO TO МЕ ааа CLS : GO SUB P: PRINT AT C, 
HU D; “MAKE SURE THE CORRECT DISKS я 
60708 NEXT : GO TO 6626 RE"''"IN THE CORRECT DRIVES BEFO 
70808 CLS : GO SUB Р: GO SUE R: Р БЕ" 'MOUING рата FROM DISK TO D 
RINT AT С,0;“ TO OR FROM WHICH D ISK.": INPUT “ENTER DRIVE NUMBER 
RIVE ARE YOU" TAB INT PI; “SAVIN FOR SOURCE DISKS (1. TO 4) "78 
ес OR LOADING рата 7": INPUT "DEI GO SUB P: INPUT “ENTER DRIVE М 
UE Я »";H: IF K=0 THEN GO TO NEN UMBER FOR “‘‘"“DBESTINATION DISK í 
u QJ TO. 4) NS Se LEL:/5:9o9-IC-GCLS.: PR 
T8610 LET -D-K-I: GO SUB P: PRINT INT ат C,ü; “INSERT DESTINATION D 
<- ENTER ""L"" FOR LOADING’ 7E TSK INTO” TAB C;"DRIUE “375413 T 
ugy БАБ SAVING": INPUT FS ЗЕ INT Ба "PRESS ENTER WHEN READ 
: IF F$£-"L" GR F£-z"i" THEN GO TO M e aoe RUSE O: CLS : PRINT AT C 
UAL "ғаға" 5: bo SUB VAL "110°: LET /D=5: 
7020 CLS : GO SUB P: PRINT HT C, PAUSE R«R: CAT : LET /sD=B-I 
о; "DATA TO BE SAVED ІЗ: ";EZiíII,U 9190 RANDOMIZE USR E: CLS : BRIN 
AL "4" TO UAL "13")"'"DO YOU МІБ T "isPhHGING x ENTER-HOUE xZERÜ-E 
H TO CHANGE THE HHHE?": INPUT "i ХІТ DISK SPACE, DEST. DRIVE »': 
Y/N) CFR: IF FE£-"Y" OR F£-"u" T GO SUB a278: PRINT “444242542524 
НЕМ GO SUB P: INPUT "ENTER NEU HN xzExxXxXXxXXxrXirrirkxrizirix: СО SUE 9: 
ЯНЕ “j;ERIT,UAL "4" TO URL "13"! LET F-Y4I: GO TO VAL "38170" 
7030 SAVE 7ES(I,URL ча" TO UAL " 9110 LET G=3: LET Н-і: FOR /Т ТО 
i23"! DATA EK GO TO MENU d: PRINT AT G,8; INVERSE 1; OUE 
7046 LET -1: PRINT AT C,0; "Е В 1;B5$: PAUSE 0: LET U=CODE INKE 
NTER NAME OF. “рата TO БЕ LOADED” yt. IF U=13 THEN GO SUB YAL “Set 
“OR TOKEN “CAT FOR CATALOG i а": со SUB URL “23270” 
7@45 GO SUB P: INPUT “NAHE OR CH S120 IF 1-48 THEN GO TO МЕНІ 
T ";D5: IF O$=" CAT “ THEN CAT : aizā IF U=43 THEN LET Я=1+1: LET 
GO TO VAL "7842" E=K4360: GO SUB S258: GO SUE Si 
70650 LORD БФ DATA Ef}: LET FL- 5@: GO TO 3238 
UAL EZSiI,URHDL "i£" TO VAL 81573: 9140 PRINT HT 6, ә; IHUERSE 2; 5%: 
ва та MENU Ga SUB Seid: HEX ер 
sega Сіз : GO SUB P: GO SUB БІ Р 21580 PRINT HT 3,8; CH: IF A F THE 
RINT HT €,0; “ARE YOU LISTING ТО N RANDOMIZE USR Е: GO ТО 85178 
A CENTRONIC' “ТҮРЕ PRINTER 77 i 2150 RETURN 
YANI: PAUSE 0: IF INKEY$="8° TH S178 GO SUB P: LET Тер: LET .J=1 
Ем GO TO HEN 5188 PAUSE 2: LET 6-2: LET H-ü: 
әгі IF INKEY$="yY" OR INKEYS$="u" IF Е-Т>-і? THEN LET J=34+16: 60 T 
THEN GO TO VAL "зеза" а 9286 
айга CLS : LET ^P-T: GO SUB ü: F 9190 LET J=F 
OR /г TO ҮЗІ: LPRINT EsSiA, TO ій S2@@ LET K-PEEK 2353 7642554FPEEK Z 
$; TAB 11; K$ti+CODbeE ES(A,11:13;THE S377: FOR /Т TŪ d 
17; ЕШІН,1ІР TO 25): NEXT : GO TG арі PRINT AT G,8;E£in,., ТО 183;T 
МЕНО AB 11; KS (14CODE Е$(8Я.11));ТтАВ 17 
5030 REM PRINTER CODES HERE ESiH,.l12 ТО 26:3: LET GzG-41: If 


EPSON FX/RX + SKIP OVER THEN RETURN 
PERFORATION 
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$220 NEXT 60 SUB 92608: GO sug 
9118 

S230 IF я-1:= THEN LET T=A 
S240 GO TO VAL "2180" 

925@ GO SUB P: PRINT 80; INSERT 
SOURCE D 4 INTO DRIVE В; 

BERI I= Sa = ee = P 
PAUSE 0: LET 15-55 (A, TO Dx. 60 
TO VAL "S258"4CODE ES(GQ,CLEIDAI 
S251 MOVE 4% TO 5: RANDOMIZE us 
Б E: RETURN 
S252 MOVE 4% рата TO 5: RANDONI 
ZE USR E: RETURN 


S253 MOVE 1% DATA $ TO 5. RANDO 

MIZE USR E: RETURN 

8254 MOVE /L$CODE TO 5: RANDOMIZ 

Е USR E: E BE 

S255 MOVE /L$ABS TO 5: RANDOMIZE 
USR E: RETURN 


S256 MOVE ;i$URHL TO 5. RANDOMIZE 
USR E: RETLIRN 

S250 POKE 23375,K -PBS6<4INT ік /гав 
A POKE 23377, INT (K 7/2561: RETUR 
S270 PRINT AT 1,27;" “AT 1,2 
7; CODE H$ii178, 5345 5; K": RETURN 
S588 REM INITA LIZE PROGRAM WITH 


"RUN S588" THEN 
DELETE LINE 95808 TO END 
UNLESS ENTERED IN THE 
TIMEX MODE. 

8510 RESTORE 9528. FOR Х=26715 T 


p 
e 

eR En IS 
m .. 
ІЛ 

n: 

Lad 


S528 рата 285,18, 2.42, 75, Se 7,1 
235,33,32 237 
.176,33,16,38,1 22, 
2235,17,4,8,25,2: is, 
237,175,225,17,i 2.4 
B,4,23,25,42,248 2,u 
:25,34,88,94,22: 7,88, 
14,25,17,15,38, 8,2 
7,176,285 ,i142, 
2530 DELETE S588, 
8540 REM CHANGE 267415 IN LINE 
$512 TO 23760 TO 23758 
%84 IF ENTERD IN THE 


SINCLRIR Bees ALSO 


Enter the program with the 2068 
in the TIMEX mode if possible, 
since this mode suports the delete 
necessarry to delete lines 9500 to 
end. The program will work in 
either mode ones saved and reloaded 
to be used. Needles to say, the 
program will work only with Safe 
DOS or SDOS as I prefer. 


Here now the instructions to run 
the LIBRARY program. 


Ones typed into the computer and 
initialized, save the program to 
disk, using; 

CLEAR: SAVE/"LIBRARY" LINE 20 
Reset or NEW your computer, and 
enter;1@ LOAD/"LIBRARY", save this 
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line to file 0, unless you elect to 
keep the LIBRARY program on a disk 
with other programs. Keeping it on 
a disk by itself will allow you to 
just type LOAD & ENTER to load it. 


Version 1.4 has à few features 
the previous published program does 
not have, besides it has been 
debuged, but perhaps some more will 
surface as time goes on. Let me 
know if you find any. 


Sorry about the basic sort in 
the program, but as soon as time 
permits I will write a machine code 
portion for it. like I said before, 
have a cup of coffee while it sorts 
іп the meantime. Now a view hints 
on how it works! 


Upon running, the program will 
ask you if you like to start a new 
file or like to load ап existing 
one. Naturally you have to start a 
new one first, so press "1". Enter 
the number of entries you wish to 
make to the file next, keep in mind 
that when in the ТІМЕХ MODE you 
wont have the luxory of having as 
much memory available as in the 
SPECTRUM MODE, it may be best to 
use a maximum of 800 files, since 
you may like to load a program 
while in the TIMEX MODE. 


Having reached the MAIN MENU, 
you will see all the options 
available to you. Insert a disk 
into a drive and press option лы 
to enter the files on that disk to 
the LIBRARY. Always scroll through 
the files when the program catalogs 
your disk, and follow the prompts. 


The program should have returned 
you to the MAIN MENU now, where you 
will see the number of files you 
have entered just above the bottom 
line. Press "1" at this time and 
then press ENTER again. You will 
now get a listing of all the files 
you have entered. Pressing any key 
will permit you to scroll through 
the files with an inverted cursor, 
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pressing ENTER will load the 
program at the cursor position from 
the named disk. Pressing "1" will 
page through the files should you 
have more than 19 files іп the 
LIBRARY, but lets get back to the 
MAIN MENU pressing the "0" key. 
Lets add a few more disks to the 
LIBRARY at this time. 

I should mention that after 
pressing the "1" key, you have the 
option to use the search function 
and are able to load the searched 
program after inserting the named 
disk. 


Try deleting a file after you 
have loaded it, or try the update 
a disk feature to get the feel for 
it now. Options "S" and "6". 


Do you have a disk which has a 


funny name, like "test" and you 
always wanted to change that name? 
Yes you may do so now, using 


feature "2". This feature will not 
only change the disk name in the 
LIBRARY, but will also change the 
DISK МАМЕ on the DISK (SDOS version 
2. & up). Have the DISK to be 
changed in a drive and the LIBRARY 
FILE present at the same time, this 
will prevent confusion іп your 
listings at a future time. 


Lets see how fast a basic sort 
is next. Press "6" and watch the 
blinkenlight on John's board if you 
have nothing better to do. Believe 
1%, this is the fastest sort there 
is in basic for this particular 
purpose, yes I tried a few others, 
but this one beats them all. Having 
close to 800 files in the LIBRARY 
and using the sort then, should 
really warm up the chips іп your 
computer, so much for basic. Sorted 
listings let you find things a lot 
easier on a print out, but it will 
be better to have unsorted files to 
create a new disk from the LIBRARY 
since some programs have basic, 
screenfile and code to be moved, 
having different names for each. 


If you have a printer hooked up 
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and dont mind waisting some paper, 
press "в" now, and see what a 
printout looks like, but before, if 
you do not have have an EPSON type 
printer, check the printer codes on 
line 8050, don't wory about 
breaking into the program, "GO TO 
MENU" or "GO TO 5@" will get you 
back to the MENU, but never use 
RUN, this will of course wipe out 
all the data. Change the printer 
codes on line 8050 if needed, 
consulting your printer manual of 
course. Also change the "LET/P-0/G" 
to whatever you have used in the 
past. 


Next find a new disk, and press 
the "9" key. First, you will be 
able to format this new disk, but 
if you have a formated disk ready, 
or like to MOVE. some files to a 
disk which already has some files 
on it, then just press ENTER to 
skip the format option. The destin- 
ation DISK will be cataloged next, 
this will read the destination disk 
£or the amount of disk space avail- 
able on the disk, which will бе 
constantly updated and displayed 
above the listings, this will make 
life easier. 

You should see a listing of all 
your files next. Yes this 15 the 
same routine as the file 0 menu 
loader, one exception, pressing the 
ENTER key will MOVE the file at the 
cursor from the SOURCE drive to the 
DESTINATION drive now. 

Just follow the prompts when using 
this function, make sure though, 
you always insert the appropiate 
disk into the source Grive, 
otherwise you will get an error 
report. Typing "GO TO MENU" will 
get you back to the menu if this 


happens, or you may try using 
"CONTINUE" after inserting the 
correct disk, this should work, 


something I have not tried at this 
time. 


Function "7" will of course 
allow you to save a LIBRARY FILE to 
disk, or allow you to load another 
FILE into the program. 
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One word оғ caution, do not 
tamper with line "20", but if you 
cant resist, do not define any 
variables ahead of the ones already 
defined, the machine code in line 
0 looks for the defined variables 
in line 20 in а certain area of 
memory, 5о keep your poken fingers 
away from that line. Also do not 
take line 0 down to edit, not that 
this is possible, but if some of 
you poke а different line number 
into line Ø, you will be able to do 
so, this will surely wipe out the 
code!! 


Good luck, I hope you enjoy this 
program as I do. It was born out of 
necessity to clean up my disk 
library. 

Let me know if you like lit; this 
would be about all the profit I 
would make from writing it. 


Your #3 
Е.А. HILSMANN (Rudy) 
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READ ANY GOOD QL BOOKS LATELY? 
HOW ABOUT A USERS HUIDE FOR ARCHIVE THAT’S COMPLETE 
AND WRITTEN IN PLAIN ENGLISH FOR A CHANGE 


HERE IT IS! JUST FOR YOU! 
ARCHIVE MASTER 


Our new book will pepe di out shortly after the ist of 
March, 1787. We don't think that there is anything about 
ARCHIVE that we have forgotten to cover. We may have 
missed some small detail, but we can't find it! 


The book covers ALL COMMANDS and ALL FUNCTIONS in detail! 
We step you through each of these and then go on to show 
you how to create the ‘PERFECT FILE’. After that we show 
you how to add NEW FIELDS to an existing file. 

The next step is to show you, IN DETAIL, the SEDIT or 

5 EDIT function. Have you ever turned off your QL 

pig c a ғам tried ЕА ореп 1 Mun ру to 
е "7 If so, we have included а fix for 
the corrupted file. THIS ONE ALONE IS WORTH THE PRICE OF 
THE BOOK! And if that’s not enough, we even give you the 

listings for all of our business software! 
ll of this at a price of ONE PROGRAMI 


ONLY $44. 95+$3ph 
Over 200 В 1/2'x11* pages in a quality 3 ring binder. 
ANOTHER SUPERB EXECUTIVE WORKSHOP PRODUCT FOR YDUR QL! 
AVAILABLE EXCLUSIVELY FROM: 
КМС ENTERPRISES 
1419 1/2 7TH STREET 
ES Hai 
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А Commitment--What 1% Takes 


We all know of busy people who get 
a lot of things done and accomplish 
a lot of things. They seem %о be 
successful at almost everything 
they decide to do. We feel inferior 
to these people because they seem 
to have so much talent. But is it 
really talent or is it something 
else? 


What does it take to Бе а success 
at something? Some of it is brains. 
Some of it is training. But most of 


it is a commitment. With a strong 
enough a commitment, brains and 
^/.training deficiencies are rapidly 


overcome. 


The same sort of commitment applies 


to a sport or a hobby. You don't 
get on the Olympic Team without 
some sort of commitment of a major 
sort. You don't become a home 
computer expert or programmer 
without a committment as well. 

This was brought out as а lesson 


again in the home computer boom of 
.the early 1980's. It was the "in" 
thing back then to have a home 
computer. Most of us didn't know if 
ме wanted to make that sort of 
commitment іп dollars until the 
price of computers came down quite 
a bit. Many of us first took the 
plunge when the price got below the 
$100 mark and bought that first 
ZX81 or TS1000. It was sort of fun 
' joining a User Group and rubbing 
elbows with a lot of other 
neophites. It was nothing to have 
over 100 people attending а user 
meeting. 


All 
still 


Where are they now? 
people? How many are 
in computering? 


these 
active 


Some went on to other computers as 


they found they had an 
experimenters toy and needed 
something more. I guess many 
expected a lot more for their small 
investment then what they got. So 
you expected a disk drive, monitor, 
printer and computer all for under 
$100? Every once ina 
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while we get a person at a 
that just picked up а ZX81 or 
TS1000 at a garage sale and is a 
bit shocked when told what all else 


meeting 


he needs for what he wants to do 
with it. These people never 

wanted to be programmers or 
experimenters but only users. Fine 
but they are still in computering 
as they still use one albeit not 
their ZX81. They are still active 


in computering. We don't count them 
as being people who fell by the 
wayside. 

the boom also 
lot of people who 
weren't serious about computers. 
The mental bend of most of those 
kinds of people would be to rather 
watch TV than to do апу sort of 
mental improvement such as computer 
programing with the screen. ТЕ 
takes а strong commitment to become 
a programmer just as it does to 
become an MD, lawyer or PhD. Lots 
of would be students don't seem to 


Unfortunately, 
brought in a 


have sufficient commmitment and 
give up at the first difficulty. 
I've noticed this with college 


students as well as with hobbists. 


The interesting thing about working 
the brain is that, like physical 


exercise, it improves it. You can't 
wear out your brain although as 
much aS some people use it, it 
withers away from disuse. The other 
thing about the brain is that it 
does tire of the same thing after 


a while so shifting it to something 


else refreshes it. I work at опе 
mental thing at work and another 
thing at home. Much like using 
different muscles. Of course, 


solving computering problems is а 
bit akin to climbing Everest. Why 
do we do it? Because the problem is 
there and becomes a personal 
challenge. We don't do it because 
it has already been done. There 15 
a real sense of achievement in 
solving a really tough computering 
problem. Your really tough problem 
may not be as tough as my really 
tough problem but the sense of 
achievement is just as great. 


June 1988 


ССССҮСС—С̧—————————————С——— 


Anyone who has ever tackled machine : 


code knows the exhillerating sense You can learn about commitment the 

of achievement when the 0%$ ' ! (396 easy way by going after some 

finally works. Purposeful goal, becoming what you 3 
want to be, or you will learn about 

But the same sort of sense of it the hard way by never 

achievement was around when you accomplishing anything in your life 

tackled that Basic problem as and then wondering why you never 

well. did. The road to... is paved with | 


good intentions etc. 
How many ZX and TS machines are 


gathering dust in attics and Do something useful with that spare 
basements or end up in garage time you all have. A person once 
sales? Some of this is asked me how much time I spent at 
understandable as they were a bit a computer during the week at home. 
unweildly and people outgrew them I thought for a while adding up the 
and needed something a bit more hours mentally that I had spent іп 
Professional. But many people never the previous two weeks and came up 
outgrew them and just gave up after with a answer of 40 hours a week. 
a halfhearted attempt. Over half Everyone has more free time than 
fall by the wayside but a few come that every week away from his job 
back for a second try and then unless he is a workaholic putting 
usually succeed as they finally in 70 hour weeks. If you spend from 
realize the commitment they have to 6 to 11 every night and all day 
make. Unfortunately, too few come Saturday and Sunday you have over 
back for that second try. 60 hours of free time to spend and 
Still leave time for eating апа 
Lack of commitment seems to be the Sleeping. What you do with this 
pervading way of life for a lot of free time is up to you. You can do 
People in the US. The phenomena is something useful or you сап fall 
probably a national sentiment. asleep watching TV--must have been 
Countries where people have a a really exciting program! Granted 
stronger sense of commitment аге that the 40 hour weeks at the 
not only gaining on the US but in computer were an intensive period 
many cases have surpassed us. Lack where І really was working on 
of commitment is a fast мау of something interesting but that 
becoming second or even third rate. Still means I had 20 hours to do 
Many people want a big paycheck but other things as well like mow the 
don't want to do anything much to lawn, clean the house, etc. Nobody 
earn it or even do any study to Says you have to make that full a 
qualify for it. It takes quite a commitment to something but it 
Slow learner to be so slow you shows what сап be done if you 
can't teach him/her anything. I really want to. Again it is up to 
bend over backwards for students you. 
who really want to learn but are 
having a hard time at it. 1 don't One word of caution. There сап be 
go out of my way for those that such a thing as too much commitment 
don't want to learn. Commitment is if it's for the wrong thing. If 
something you grow up with. Its something is a hobby, don't make 
something you and you alone can do. the commitment to your hobby 
But you have to do it to achieve stronger than your commitment to 
anything worthwhile. your work. I have seen that end up 
in disaster for people. Work comes 
first. 
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If you do not have а QL you should 
get one it is a GREAT machine. You 
can learn about the other part of 
the computing comunity, the поп 
TS2068 one. How they must suffer. 
But it is the real world with many 
advantages over the 1752068 like 
Word Processing, with Spelling 
Checkers, or high-res graphics or 
many of the data processing large 
memds 85 degrees. I recemend а 
small (3") fan placed at the back 
of the unit on the network side. 
This will cool the memory, micro 
drives and, if you have one, Trump 
Card. Note the fan should blow away 


from the QL. The following is a 
small program that can be used to 
benchmark а program. It will 


calculate the elapsed running time 
of a program. The program to Бе 
benchmarked must follow these 


rules: 


1. Can not use line 1. This 
line will run both the 
benchmark program апа the 


program to be benchmarked. 
2. The end of the Program, 
STOP or just ending the 
program, must occur at the 
physical end of the program 
or benchmark will not work. 
Do this by GO TO tne first 
line after the end of your 
program. 


The program will date stamp the run 
and print it, if you request it, so 
set the date and time if you wish 
the correct information to appear 
on the printout. The following 15 
a program that can be used to 
benchmark a program. It will 
calculate the elapsed running time 
of a program. 


GK ENTERPRISES 


Your Computer Supply Source 


No need to waít for a sale. 


Our prices are low everyday 


Wide selection of printer ribbons 


AXION с. 


PANASONIC 


ITOH EPSON OKIDATA 


STAR AND MANY MORE. 


0000200060660 6 6 


«5КОС SPECIALe 


тесееееееееее 


2700 sheets 9 1/2 x 11 20й Microperf 623.50 


8634 Ы. Mationel Avenue 
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ы 646-0111 « 
тевечтевееоветезе 


West Allis WI 53227 
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Тһе program to be benchmarked must 
follow these rules: 


1. Can not use line 1. This 
line will run both the 
benchmark program апа the 


Program to be benchmarked. 


2. Тһе end of the program, 
STOP or just ending the 
Program, must occur at the 
Physical end of the program 
or benchmark will not work. 
Do this by GO TO the first 
line after the end of your 
program. 


The program will 
and print it, if 
set the date and 
the correct date 
on the printout. 


date stamp the run 
you request it, so 
time if you wish 
and time to appear 
To run the program 
MERGE the two programs together, 
and run. When the program starts 
you will be asked for the program 
name. If а name is not wanted press 
enter. After the name the program 
will save the start time, from the 
clock, and run your program. When 
completed the program will display 
the start апа ending time, the 
date, and the elpased time. 

1 GO SUB 32739:GO SUB 2:60 SUB 
32743: STOP 
32738 RETurn 
32739 CLS:INPUT ‘Enter program name 
';name$:CLS 


Tune 


gp 


32740 LET start date - DATE 

32741 RETurn 

32742 REMark 2nd part of program 
32743 MODE 8:CLS:PRINT 'Program 
start '; DATES 

32744 LET end date - DATE 

32745 PRINT ‘Program ended ';DATES$ 
32746 PRINT 

32747 LET elapsed time - (end date 
— start date) 

32748 LET 


full datel$-DATES(elapsed time) 
32749 LET yymmdd$=DATE$ 
32750 LET full ааіе1$ (1 
vymmdd$(1 to 12) 


to 12) - 


32751 LET full datei$-yymmdád$ & 
‘Elapsed time is ' & full datei1$ 
(13 to ) & 'Program name is ' & 
name$ 

32752 PRINT full date$ 

32753 PRINT:PRINT ‘Hardcopy also? 
(Y or" N). 

32754 LET ynswitch$ - ІМКЕҮ% (-1) 


32755 IF ynswitch$ -'y' or ynswitch 
='Y' THEN : 

32756 OPEN #3,ser1 

32797 PRINT *3,full date$ 

32758 CLOSE #3 

32759 GO TO 32765 

32760 ELSE 

32761 IF ynswitch$ ='n' or 


ynswitch$ ='N' THEN : 
32762 GO TO 32765 
32763 ELSE 

32764 GO TO 32754 
32765 END IF 

32766 RETurn 


SMUG Bytes 


